home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / ciarnv85.arc / H3.4TH < prev    next >
Text File  |  1986-04-08  |  640b  |  26 lines
  1. DI
  2.  CREATE HEXR 0 ,  CREATE HALFDUP 0 ,
  3.  CREATE DECR 0 ,  CREATE CHARR 0 ,
  4.  
  5. : RCV CT@ RR AND IF
  6.  DA@ CHARR @ IF ECHAR ELSE HEXR @ IF E2HD ELSE DECR @ IF PUTD
  7. ELSE PUTC THEN THEN THEN THEN ;
  8. CREATE RND HERE ,
  9. : RAND RND @ 31421 * 6927 + DUP RND ! ;
  10. : CHOOSE RAND U* SWAP DROP ;
  11. HEX
  12. : XWT BEGIN ?KEY RCV CT@ XR AND UNTIL ;
  13. : XPT XWT DA! ;
  14. : FLOOD BEGIN DUP XPT ?TERM UNTIL ;
  15. CTAG
  16. : CSX 7B 2C DO I XPT LOOP ;
  17. : CSET 1B XPT 2A XPT 0
  18.  BEGIN CSX ?TERM UNTIL ;
  19. : RWT BEGIN ?KEY CT@ RR AND UNTIL ;
  20. : RGT RWT DA@ ;
  21. CTAG
  22. ==> B:H4.4TH
  23.  
  24.  
  25.  
  26.